home *** CD-ROM | disk | FTP | other *** search
/ ZAM 1 / ZAM 1.adf / Source / AdvScrolly.AMOS / AdvScrolly.amosSourceCode next >
Encoding:
AMOS Source Code  |  1978-02-03  |  3.2 KB  |  107 lines
  1. SL=58
  2.    Dim LETTER$(SL),XPO(SL),YPO(SL),XPO2(SL),YPO2(SL),SIZE(SL)
  3.    LET=1 : PASS=0 : SCR=8 : 
  4.    SCRL$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@�$%^*()-=+\?<>.,;:' "
  5.    Gosub TXT : Gosub SCOPEN : Gosub _DEFINE
  6.  
  7. STEXT:
  8.    Do 
  9.       Screen Copy Physic(1),0,0,340+SIZE(IN),60 To Logic(1),-SCR,0
  10.       Add PASS,SCR
  11.       If PASS>SIZE(IN) Then Gosub LETNEXT : PASS=0 : Inc LET : If LET>Len(SC$) Then LET=1
  12.       If Mouse Key=1 Then Goto _QUIT
  13.       Screen Swap : Wait Vbl 
  14.    Loop 
  15.  
  16. LETNEXT:
  17.    Screen 1
  18.    Screen Swap 
  19.    Cls 0,340,0 To 400,100
  20.    Screen Swap 
  21.    Cls 0,340,0 To 400,100
  22.    IN$=Mid$(SC$,LET,1)
  23.    IN=Instr(SCRL$,IN$)
  24.    Screen Copy 0,XPO(IN),200-YPO(IN)-1,XPO2(IN),200-YPO2(IN) To 1,340,5
  25.    Return 
  26.  
  27. _QUIT:
  28.    End 
  29.  
  30. _DEFINE:
  31.    For LOP=1 To SL
  32.       Read LETTER$(LOP),XPO(LOP),YPO(LOP),XPO2(LOP),YPO2(LOP),SIZE(LOP)
  33.    Next LOP
  34.    Data "A",0,199,23,172,23
  35.    Data "B",26,199,49,172,23
  36.    Data "C",52,199,75,172,23
  37.    Data "D",78,199,101,172,23
  38.    Data "E",104,199,127,172,23
  39.    Data "F",130,199,153,172,23
  40.    Data "G",156,199,179,172,23
  41.    Data "H",182,199,205,172,23
  42.    Data "I",208,199,223,172,15
  43.    Data "J",226,199,249,172,23
  44.    Data "K",252,199,279,172,27
  45.    Data "L",0,169,104,142,23
  46.    Data "M",26,169,53,142,31
  47.    Data "N",56,169,79,142,23
  48.    Data "O",81,169,104,142,23
  49.    Data "P",107,169,130,142,23
  50.    Data "Q",133,169,160,142,23
  51.    Data "R",163,169,186,142,23
  52.    Data "S",189,169,212,142,23
  53.    Data "T",215,169,238,142,23
  54.    Data "U",241,169,264,142,23
  55.    Data "V",0,139,23,112,23
  56.    Data "W",26,139,53,112,27
  57.    Data "X",56,139,87,112,31
  58.    Data "Y",90,139,121,112,31
  59.    Data "Z",124,139,151,112,27
  60.    Data "0",0,109,23,82,23
  61.    Data "1",26,109,41,82,15
  62.    Data "2",44,109,67,82,23
  63.    Data "3",70,109,93,82,23
  64.    Data "4",96,109,123,82,27
  65.    Data "5",126,109,149,82,23
  66.    Data "6",152,109,175,82,23
  67.    Data "7",178,109,201,82,23
  68.    Data "8",203,109,227,82,24
  69.    Data "9",230,109,253,82,23
  70.    Data "!",0,79,7,52,7
  71.    Data "@",10,79,29,52,19
  72.    Data "�",32,79,55,52,23
  73.    Data "$",58,79,81,52,23
  74.    Data "%",83,79,111,52,28
  75.    Data "^",114,79,141,52,27
  76.    Data "*",144,79,193,52,31
  77.    Data "(",178,79,193,52,15
  78.    Data ")",196,79,211,52,15
  79.    Data "-",0,49,23,22,23
  80.    Data "=",26,49,49,22,23
  81.    Data "+",52,49,75,22,23
  82.    Data "\",77,49,109,22,32
  83.    Data "?",111,49,134,22,23
  84.    Data ">",137,49,160,22,23
  85.    Data "<",163,49,186,22,23
  86.    Data ".",189,49,197,22,8
  87.    Data ",",201,49,212,18,11
  88.    Data ";",215,49,226,18,11
  89.    Data ":",229,49,236,22,7
  90.    Data "'",239,49,250,22,11
  91.    Data " ",154,139,185,112,31
  92.    Return 
  93. SCOPEN:
  94.    Screen Open 0,360,200,32,Lowres
  95.    Unpack 16 To 0 : Screen Hide 
  96.    Screen Open 1,400,100,4,Lowres
  97.    Screen Display 1,120,100,400,100
  98.    Screen 1
  99.    Curs Off : Cls 0 : Flash Off : Get Palette(0) : Double Buffer : Autoback 0 : Bob Update Off 
  100.    Return 
  101. TXT:
  102.    SC$=SC$+"THIS IS GRAHAM STEPHENSON (A.K.A. HAWK\ZIRCON). I HOPE YOU FIND THIS DEMO "
  103.    SC$=SC$+"USEFUL AND THAT YOU CAN ENHANCE OFF IT. NEXT TIME, I WILL LOOK AT ADDING SOME MORE EFFECTS "
  104.    SC$=SC$+"TO THE TEXT, AND ALSO HOW YOU CAN USE THIS METHOD TO HAVE NON-TEXT CHARACTERS SCROLLING ACROSS THE SCREEN. "
  105.    SC$=SC$+"IF YOU HAVE ANY PROBLEMS WITH A PART OF MY TUTORIAL, DROP ME A LETTER "
  106.    SC$=SC$+"AND I WILL TRY AND ANSWER IT IN THE NEXT ISSUE OF THIS MAGAZINE...     BYE .....     "
  107. Return